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p=1986 19:00:17 ERPGRTLeSRESA 
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ne RPGSDIVIDECIDENT="1-003")= 


PEPE SEE TT TEST TTT TTT TTT TTT Tre cere teeter c eric i circ iit titi tii i iiiiiiiiiit 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 


* 
* 
* 
ae 
+ 
* 
IE * 

'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
' * 
'® OTHER 3 + NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* 

' * 
!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 
* 

4 

# 

* 

* 

* 


:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'@ 
Sree RRR ERE AAAAERAAAEA AAA AA AAA AAE EAA ATER 
' 


i 
le 
FACILITY: RPGII SUPPORT 
ABSTRACT: 
This module supports RPG divides over 31 packed digits 
ENVIRONMENT: VAX/VMS user mode 
AUTHOR: Shelly T. Solomon, CREATION DATE: 15-Jul-1983 


REQUIRE ‘RTLIN:RPGPROLOG'; tches, psects, macros, 


swi 
Linkages and LIBRARYs 


te 
TABLE OF CONTENTS 


FORWARD ROUTINE 
RPGSDIV_LONG : NOVALUE; 


MODIFIED BY: 

1-001 Original. STS 15-Jul-198 
} 1-908 Pass scale-data to PLISDIV_PK_SHRT. STS Be-Nov~ 138 
! 1-005 Change reference to PLI$ routine to OTS$ routine. DG 05-Mar-198 


: 58 123 1} 

: §9 123. 1 | EXTERNAL REFERENCES 
: 60 124 1 i- 

: 61 125 1 

i 68 126] EXTERNAL ROUTINE 

: 6 127 1 OTS$D1V_PKSHORT; 
: 64 128 1 

: 65 129 1 BUILTIN 

: 66 0130 1 ASHP; 

: 67 131 1 
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Sep-1984 02:12:53 AX-11 Bliss- 
371384 9:08:77 RPGRTL.SRC RPGDIVIDE. if 2;1 


recente cts wa taht Onee BLOCK(,BYTE ! dividend (packed dec by d i ) 
° ° ! viden acked dec escriptor 

FACTOR@2; REF BLOCKE BITE; ! divisor (pecked dec by descriptor? 

iy A BLOCKL BYTE] ! result (packed dec by descriptor) 


44 
' 


FUNCTIONAL DESCRIPTION: 
This routine euaperse RPG qi y lees when precision and scale 
requirements call for precision > 31 decimal digits. 
It accepts as input packed decimal strings, and outputs a 
packed result. 
' CALLING SEQUENCE: 
CALL RPGSDIV_LONG (factor_1.rp.ds, .factor_2.rp.ds, result.wp.ds) 


FORMAL PARAMETERS: 


i 
i 
i 
i 
' 
i 
' 
i 
i 
i 
i 
FACTOR_1 address of descriptor of dividend for divide 
The allowable data type is packed. 
FACTOR_2 address of descriptor of divisor for divide 
The allowable data type is packed. 
i RESULT address of ge | pom of result of the divide 
operation. The allowable data type is packed. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
NONE 
en 
~ BEGIN 
LOCAL 
. : additional precision needed 
: scale factor for dividend 


o 
° 


' scale-data for divide 
DIVIDEND : VECTORC16,BYTE); i scaled dividend 
i Note: the variables names, A,C, and D were chosen to correspond to the 

i PLI (COTS) documentation of the run-time routine. (See the Language Support 


11 
$ep-1984 02:12:5 AX-11 Bliss-32 v4.0 
ety 7 09: 42:33 RPGRTL.SRC RPGDIVIDE. 4 2:1 


; 1 189 ! Reference Manual.) 

; 3 : 158 : 

; 128 191 i 

; 129 136 i calculate geese tone: tac ipits of precisten required 

: 150 19 i The sign of the scale which we use is the negative of the scale which the 

3 } 1 132 - run-time routine is refering to, because of the way we store negative numbers. 
.% 138 A= “FACTOR 1CDSC$W LENGTH] = .FACTOR_2CDSC$B_SCALE] - .RESULTCDSC$8_SCALEJ 
; 134 B18 -FACTOR_ ifDSc$B_ SCALE) -31;~ 

3 139 198 

; 136 0199 '+ 

3 130 8509 _Get scale factor needed to make the dividend a 31 digit number. 

; 139 0 o¢ = 31 = .FACTOR_1CDSC$W_LENGTHI; 

; 140 20 

> «141 0204 + 

3 rs 0205 ! Get the data scale 

: 146 0206 ‘. 

3 144 0207 D = 31 + .FACTOR_2CDSC$B_SCALE); 

> 6145 0208 

: 146 0209 + 

: yi 4 osi9 _Move from the packed dividend to temporary dividend scaling by 10**c 

3; «149 petg } ASHP(C, FACTOR_1CDSCSW LENGTH, -FACTOR_1CDSC$A_POINTER], %REF(O), 

: 130 OStz 2 MREF (31), “DIVIDENB); 

: 152 0215 $ OTSS$DIV uc eaaiibaatdingt -FACTOR_2CDSC$A_POINTER] FACTOR_2CDS gs LENGTHI, 
: 153 0216 2 Litbs A-POIN NTERT. RESULT CDSCSW_ LENGTH TA, .D); 
3: 6154 0217 2 

s 155 0218 2 RETURN; 

3 36 0219 #1 END; 


-TITLE RPGSDIVIDE 
. \1-003\ 


~-EXTRN OTSSDIV_PKSHORT 
~PSECT _RPGSCODE,NOWRT, SHR, PIC,2 


00FC 00000 .ENTRY RPGSDIY _LONG, Save R2,R3,R4,R5,R6,R7 
5E 10 ¢2 90002 SUBL2 #16 
52 04 aC DO 0000 MOVL FACTOR 1, R? 
23 - 65 gc 50008 MOvE FACTORS. R 
51 08 aS «(98 90010 CVTBL 8 (R5S, RI 
20 0c ic cs ith Soyt Rie RO R4 
Ho 8 eae es Ee 
51 08 A2 9 999 2 CVTBL 8(R2), R1 
57 E1 A140 9E 00026 OVAB -31(R1)CROJ, A 
ee 
ne ae ak 
62 50 £8 00039 ASHP = C, (R2), @4(R2), #0, #31, DIVIDEND 


Page 
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eee Bliss-32 Vite as 
RPGRTL.SRCIRPGDIVIDE.B32;1 


RPGSDIVIDE 
1-003 


0216 
; 0215 
0219 


S$D1V_PKSHORT 


RET 
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000000006 00 


_RPGSCODE + 0000 


Routine Base: 


1 


92 bytes, 


0220 


3; Routine Size: 


12 
M803 PE 1fr3eo-t9gt 1:06:77 — ERBartu °SReSapenl vive 082; Page 33 
: 159 033] 
; 160 0 


PSECT SUMMARY 


Sl 


: Name Bytes Attributes 

: _RPGSCODE 92 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 

RR a Re neha, Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 3 0 581 00:01.0 

: ~$255$DUA28:CRPGRTL.OBJIRPGLIB.L32;1 54 0 0 9 00:00.1 

3 COMMAND QUALIFIERS 


; Size: 92 code + 0 data bytes 
Run Time: 00:04.2 
Elapsed Time: 00:17.5 
Lines/CPU Min 3148 


Lexemes/CPU-Min: 11063 
conery 2 Used: 50 pages 
Compilation Complete 


BLISS/CHECK SCE TELS INETIAL ,OPTIMIZE) /MOTRACE/L ISL ISS RPGD1VIOE/0BJ=08.)5 PED IVIDE MSRC$:RPGDIVIDE/UPDATE=(ENH$:RPGDIVIDE 
| 
| 
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